unit u_dm_produtoreserva;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, u_dm_padrao, FMTBcd, DB, DBClient, Provider, SqlExpr;

type
  Tdm_produtoreserva = class(Tdm_padrao)
    cdsConsultaCOD_RESERVA: TIntegerField;
    cdsConsultaLIG_COD_EMPRESA: TIntegerField;
    cdsConsultaLIG_COD_PRODUTO: TIntegerField;
    cdsConsultaCONTATO: TStringField;
    cdsConsultaCONTATO_TELEFONE: TStringField;
    cdsConsultaQUANTIDADE: TIntegerField;
    cdsConsultaDATA_VENCIMENTO: TDateField;
    cdsConsultaDATA_CAD: TDateField;
    cdsConsultaDATA_ALTERACAO: TDateField;
    cdsConsultaSITUACAO: TStringField;
    cdsConsultaSITUACAO_DESC: TStringField;
    cdsConsultaPRODUTO: TStringField;
    cdsConsultaCOD_BARRAS: TStringField;
    cdsConsultaEMPRESA: TStringField;
    cdsRegistroCOD_RESERVA: TIntegerField;
    cdsRegistroLIG_COD_EMPRESA: TIntegerField;
    cdsRegistroLIG_COD_PRODUTO: TIntegerField;
    cdsRegistroCONTATO: TStringField;
    cdsRegistroCONTATO_TELEFONE: TStringField;
    cdsRegistroQUANTIDADE: TIntegerField;
    cdsRegistroSITUACAO: TStringField;
    cdsRegistroDATA_VENCIMENTO: TDateField;
    cdsRegistroDATA_CAD: TDateField;
    cdsRegistroDATA_ALTERACAO: TDateField;
    spReservaCancelar: TSQLStoredProc;

  private

  public
    procedure RemoverReservaProduto(Empresa, Produto: integer);
  end;

var
  dm_produtoreserva: Tdm_produtoreserva;

implementation

{$R *.dfm}

procedure Tdm_produtoreserva.RemoverReservaProduto(Empresa,Produto: integer);
begin
  spReservaCancelar.Params[0].AsInteger := Empresa;
  spReservaCancelar.Params[1].AsInteger := Produto;
  spReservaCancelar.ExecProc;
end;

end.
